home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / pcmagazi / 1989 / 02 / ansi.bas < prev    next >
BASIC Source File  |  1988-10-27  |  16KB  |  201 lines
  1. 100 REM - BASIC PROGRAM TO CREATE ANSI.COM    
  2. 110 CLS:PRINT "Creating ANSI.COM    ": OPEN "ANSI.COM    " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   182
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   182 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "ANSI.COM     created successfully": SYSTEM
  17. 260 PRINT: PRINT "ANSI.COM     is not valid!": END
  18. 270 DATA E9, D3,  8, 41, 4E, 53, 49, 20, 31, 2E, 30, 20, 28, 43, 29, 20,   472
  19. 280 DATA 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E,   519
  20. 290 DATA 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,  A, 50, 43,   504
  21. 300 DATA 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 4D, 69, 63, 68,   60B
  22. 310 DATA 61, 65, 6C, 20, 4A, 2E, 20, 4D, 65, 66, 66, 6F, 72, 64,  D,  A,   4C4
  23. 320 DATA  A, 24, 1A, 37,  3,  A, 4F, 46, 46, 20, 4F, 4E, 20, 20, 53, 4C,   303
  24. 330 DATA 4F, 57, 46, 41, 53, 54,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   1D4
  25. 340 DATA  0,  0,  7,  0,  0,  2,  0,  0,  0,  0,  0,  D,  A,  8,  7, 48,    77
  26. 350 DATA 41, 42, 43, 44, 66, 6E, 73, 75, 4B, 6D, 68, 6C, 70, 4A, D0,  5,   5E1
  27. 360 DATA F1,  5,  0,  6, 14,  6, 2B,  6, D0,  5, 3A,  6, 7A,  6, 83,  6,   365
  28. 370 DATA 8A,  6, B7,  6, DD,  6, E1,  6, FE,  6, 95,  5,  0,  1,  4,  5,   4BF
  29. 380 DATA  7,  8, 1E, 1F, 20, 21, 22, 23, 24, 25, 28, 29, 2A, 2B, 2C, 2D,   21A
  30. 390 DATA 2E, 2F,  0,  7, FF,  8, F8,  1, FF, 80, F8, 70, 88,  0, F8,  0,   6CB
  31. 400 DATA F8,  4, F8,  2, F8,  6, F8,  1, F8,  5, F8,  3, F8,  7, 8F,  0,   773
  32. 410 DATA 8F, 40, 8F, 20, 8F, 60, 8F, 10, 8F, 50, 8F, 30, 8F, 70,  0,  0,   5A9
  33. 420 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  1,  1,  2,  0,     5
  34. 430 DATA  0,  0,  0,  0, C8,  0, C4,  8, 8C,  9, 50, 53, 51, 52, 56, 57,   41C
  35. 440 DATA 1E,  6, 55, FC, 8C, CB, 8E, DB, 8E, C3, FF, 16, 53,  1, 5D,  7,   753
  36. 450 DATA 1F, 5F, 5E, 5A, 59, 5B, 58, CF, 9C, 80, FC,  A, 74, 1A, 80, FC,   73D
  37. 460 DATA  7, 74, 15, 80, FC,  1, 74, 10, 80, FC,  6, 75,  5, 80, FA, FF,   706
  38. 470 DATA 74,  6, 9D, 2E, FF, 2E, 6E,  1, 9D, 2E, C6,  6, FB,  1,  2, 9C,   612
  39. 480 DATA 2E, FF, 1E, 6E,  1, 2E, C6,  6, FB,  1,  1, CA,  2,  0, FB, 9C,   614
  40. 490 DATA 55, 1E, 50,  E, 1F, 80, 3E, FB,  1,  1, 74, 17, 80, 3E, FC,  1,   4F1
  41. 500 DATA  2, 74, 10, FC, 8B, EC, 88, 26,  3,  2, 80, E4, EF, 74, 11, FE,   782
  42. 510 DATA CC, 74,  9, 58, 1F, 5D, 9D, 2E, FF, 2E, 6A,  1, 80, 4E,  6, 40,   594
  43. 520 DATA C6,  6, FC,  1,  2, 58, 53, 51, 52, 56, 57, 80, 3E, FD,  1,  2,   584
  44. 530 DATA 74, 37, 9C, FF, 1E, 6A,  1, 9C, F6,  6,  3,  2,  1, 74,  8, 9D,   586
  45. 540 DATA 74, 75, 80, 66,  6, BF, 9C, 9D, 8B, D8, E8, DE,  4, 72, 68, 8B,   85F
  46. 550 DATA  5, 2D,  3,  0, 83, C7,  3,  A, DB, 75,  2, 48, 47, A3, FF,  1,   510
  47. 560 DATA 89, 3E,  1,  2, C6,  6, FD,  1,  2, F6,  6,  3,  2,  1, 75, 12,   41F
  48. 570 DATA 80, 3E, FE,  1,  1, 74,  B, 8A, 26,  3,  2, CD, 16, C6,  6, FE,   59F
  49. 580 DATA  1,  1, 8B, 3E,  1,  2, 8B,  5, F6,  6,  3,  2,  1, 74,  6, 80,   35A
  50. 590 DATA 66,  6, BF, EB, 22, FF,  6,  1,  2, FF,  E, FF,  1, 74,  E,  A,   5D9
  51. 600 DATA C0, 75, 14, FF,  6,  1,  2, FF,  E, FF,  1, 75,  A, C6,  6, FD,   6A6
  52. 610 DATA  1,  1, C6,  6, FE,  1,  2, C6,  6, FC,  1,  1, 5F, 5E, 5A, 59,   509
  53. 620 DATA 5B, 1F, 5D, 9D, CA,  2,  0, BB, 41,  3, 3C, 1B, 74,  8, E9, CB,   5C6
  54. 630 DATA  0, BB, 4B,  3, 3C, 5B, 74, 78, E9, 8C,  0, BB, 66,  3, 3C, 32,   593
  55. 640 DATA 74, 6E, F6,  6, 55,  1,  1, 75, 7E, BB, 7F,  3, 3C, 3D, 74, 60,   5B2
  56. 650 DATA 3C, 3F, 74, 5C, EB, 13, 3C, 4A, BF, AA,  1, 74, 43, F6,  6, 55,   641
  57. 660 DATA  1,  1, 75, 63, C6,  6, 3B,  8,  2, C7,  6, 53,  1, 7F,  3, E8,   476
  58. 670 DATA 38,  1, 74, 3C, 3C, 3B, 75,  6, FF,  6, 79,  1, EB, 36, 3C, 30,   4E7
  59. 680 DATA 72, 45, 3C, 39, 77,  5, E8, 35,  1, EB, 29, BF, 7F,  1, B9,  F,   5E1
  60. 690 DATA  0, F2, AE, 75, 32, FF,  6, 79,  1, BF, AA,  1, D1, E1, 2B, F9,   806
  61. 700 DATA E8, 84,  1, FF, 15, EB, 36, 3A,  6, 76,  1, 75,  7, BB, 7F,  3,   612
  62. 710 DATA 89, 1E, 53,  1, 8B, 3E, 77,  1, 83, FF, 7E, 74,  A, 81, C7, BD,   6BF
  63. 720 DATA  7, AA, FF,  6, 77,  1, C3, 50, BE, BD,  7, 8B,  E, 77,  1, AC,   680
  64. 730 DATA 51, 56, E8, 27,  0, 5E, 59, E2, F6, 58, E8, 1F,  0, C7,  6, 77,   6E8
  65. 740 DATA  1,  0,  0, C7,  6, 53,  1, 37,  3, C7,  6, 79,  1,  0,  0,  E,   2B1
  66. 750 DATA  7, BF, 3B,  8, B9, 3F,  0, 33, C0, F3, AB, C3, BF, 7B,  1, B9,   749
  67. 760 DATA  4,  0, F2, AE, 74, 4E, E8, 1E,  1, 3C,  9, 75, 16, 8B,  E, F8,   5CE
  68. 770 DATA  1, 83, E1,  7, F7, D9, 83, C1,  8, 51, B0, 20, E8,  4,  0, 59,   6EE
  69. 780 DATA E2, F7, C3, F6,  6, 55,  1,  1, 75, 2A, E8, A9,  0, 73, 2C, 50,   70E
  70. 790 DATA B9,  1,  0, 8A, 3E, EE,  1, 8A, 1E, 72,  1, B4,  9, CD, 10, 58,   57E
  71. 800 DATA 80, 3E, 75,  1,  2, 74,  F, 8B,  E, F2,  1, FE, C9, 3A,  E, F8,   64C
  72. 810 DATA  1, 75,  3, C3, B3,  7, B4,  E, CD, 10, C3,  6, 8B, 16, F8,  1,   5F8
  73. 820 DATA E8, 9D,  0, 8A, 26, 72,  1, AB, FE, C2, 3A, 16, F2,  1, 72, 35,   6FD
  74. 830 DATA 80, 3E, 75,  1,  1, 74, 31, 32, D2, FE, C6, E8, 71,  0, 3A, F0,   725
  75. 840 DATA 76, 23, FE, CE, 8B, 3E, F6,  1, 8B, F7, A1, F2,  1, 50,  3, F0,   87E
  76. 850 DATA  3, F0, F6, E6, 8B, C8, 1E,  6, 1F, F3, A5, 1F, 59, B0, 20, 8A,   7CF
  77. 860 DATA 26, 72,  1, F3, AB, E8, 30,  1,  7, C3, BB, B7,  3, B4, 22, 3A,   69F
  78. 870 DATA C4, 74,  6, B4, 27, 3A, C4, 75,  4, 88, 26, 76,  1, C3, 50, 2C,   5F4
  79. 880 DATA 30, 8A, C8, B8,  A,  0, 8B, 1E, 79,  1, F6, A7, 3B,  8,  2, C1,   60A
  80. 890 DATA 88, 87, 3B,  8, 58, C3, F6,  6, 55,  1,  4, 75, 10, 80, 3E, F1,   5F7
  81. 900 DATA  1,  7, 74,  7, 80, 3E, F1,  1,  3, 77,  2, F8, C3, F9, C3, 1E,   644
  82. 910 DATA B8, 28,  0, 8E, D8, A0, 84,  0,  A, C0, 75,  2, B0, 18, 1F, C3,   655
  83. 920 DATA 50, A1, F2,  1, F6, E6, 8A, DA, 32, FF,  3, C3, D1, E0, 8B, 3E,   995
  84. 930 DATA F6,  1,  3, F8, BB,  0, B0, 81, 3E, EF,  1, B4,  3, 74,  4, 81,   6BC
  85. 940 DATA C3,  0,  8, 8E, C3, 58, C3, 1E, 57, BB, 40,  0, 8E, DB, BE, 62,   730
  86. 950 DATA  0, BF, EE,  1, A4, A5, BE, 49,  0, B9,  7,  0, F3, A4, 26, 8A,   705
  87. 960 DATA 1E, EE,  1, 32, FF, D1, E3,  3, F3, A5, 5F, 1F, C3, 8B, 1E, 3B,   7B2
  88. 970 DATA  8,  A, FF, 75,  2, FE, C7,  A, DB, 75,  2, FE, C3, 8B, 16, F8,   803
  89. 980 DATA  1, C3, BB,  A,  0, 33, C9, 33, D2, F7, F3, 80, C2, 30, 52, 41,   779
  90. 990 DATA 3D,  0,  0, 75, F2,  B, ED, 75,  7, 58, E8, C6,  6, E2, FA, C3,   7C3
  91. 1000 DATA 58, AA, E2, FC, C3, E8, 67, FF, 8A, F0, B7,  7, F6,  6, 55,  1,   97B
  92. 1010 DATA  1, 75, 1C, 8A, 3E, 72,  1, E8, 3C, FF, 72, 13, 8A, E7, B0, 20,   6B6
  93. 1020 DATA 33, D2, E8, 5B, FF, 8B,  E, F4,  1, D1, E9, F3, AB, EB, 29, 8A,   9CB
  94. 1030 DATA 16, F2,  1, FE, CA, 33, C9, B8,  0,  6, CD, 10, 33, D2, EB, 18,   770
  95. 1040 DATA E8, 2C, FF, E8, 87, FF, 81, EB,  1,  1, 3A, D8, 77, 12, 3A, 3E,   802
  96. 1050 DATA F2,  1, 73,  C, 86, FB, 8B, D3, 8A, 3E, EE,  1, B4,  2, CD, 10,   79B
  97. 1060 DATA C3, E8, 69, FF,  A, F6, 74, F8, 2A, F3, 73, EC, 32, F6, EB, E8,   AF6
  98. 1070 DATA E8, FC, FE, E8, 57, FF, 3A, F0, 74, E6,  2, F3, 3A, F0, 76, D8,   B11
  99. 1080 DATA 8A, F0, EB, D4, E8, 46, FF, 8A, 3E, F2,  1, FE, CF, 3A, D7, 74,   A73
  100. 1090 DATA CF,  2, D3, 3A, D7, 76, C1, 8A, D7, EB, BD, E8, 2F, FF,  A, D2,   9E7
  101. 1100 DATA 74, BE, 2A, D3, 73, B2, 32, D2, EB, AE, BF, B9,  8, B0, 1B, AA,   8E6
  102. 1110 DATA B0, 5B, AA, A0, F9,  1, 32, E4, 40, BD,  1,  0, E8, 23, FF, B0,   81D
  103. 1120 DATA 3B, AA, A0, F8,  1, 32, E4, 40, E8, 17, FF, B0, 52, AA, B0,  D,   83B
  104. 1130 DATA AA, 81, EF, B9,  8, 89, 3E, FF,  1, C7,  6,  1,  2, B9,  8, C6,   6F9
  105. 1140 DATA  6, FD,  1,  2, C6,  6, FE,  1,  1, C3, 8B, 16, F8,  1, 89, 16,   5CE
  106. 1150 DATA 73,  1, C3, 8B, 16, 73,  1, E9, 5E, FF, 8B, 16, F8,  1, 8B,  E,   6C5
  107. 1160 DATA F2,  1, 2A, CA, E8, 4F, FE, 72,  C, E8, 74, FE, B0, 20, 8A, 26,   874
  108. 1170 DATA 72,  1, F3, AB, C3, 8B, CA, 8A, 16, F2,  1, FE, CA, 8A, 3E, 72,   8BE
  109. 1180 DATA  1, B8,  1,  6, CD, 10, C3, BE, 3B,  8, AC, BF, AC,  1, B9, 16,   648
  110. 1190 DATA  0, F2, AE, 75, 11, BF, EC,  1, D1, E1, 2B, F9, 8B,  5, 20,  6,   75E
  111. 1200 DATA 72,  1,  8, 26, 72,  1, FF,  E, 79,  1, 75, DE, C3, B4,  2, EB,   652
  112. 1210 DATA  2, B4,  1, A0, 3B,  8, 3C,  7, 74,  F, 72,  8, 3C,  E, 72,  D,   3A3
  113. 1220 DATA 3C, 13, 77,  9, 32, E4, CD, 10, C3, 88, 26, 75,  1, C3, 8B,  E,   605
  114. 1230 DATA 77,  1, 49, BE, BF,  7, BF, 3B,  8, C6,  6, 76,  1,  0, 32, D2,   58E
  115. 1240 DATA 33, ED, AC, 49, 74, 33, 8A, 26, 76,  1,  A, E4, 75, 24, E8, 99,   6EB
  116. 1250 DATA FD, 74, EF, 3C, 3B, 74, 12, 2C, 30, 8A, F0, B8,  A,  0, F6, E2,   7CD
  117. 1260 DATA  2, C6, 8A, D0, BD,  1,  0, EB, D9,  B, ED, 74, D5, 8A, C2, AA,   8DB
  118. 1270 DATA EB, CC, 3A, C4, 74, C3, AA, EB, C9,  B, ED, 74,  3, 8A, C2, AA,   9AF
  119. 1280 DATA 81, EF, 39,  8, 8B, C7, 8B, 1E, 3B,  8, B9,  5,  0,  A, DB, 74,   606
  120. 1290 DATA  1, 49, 3B, C1, 72, 30, 8B, 2E,  8,  2, E8, 2E,  0, 72, 12, 8B,   4D0
  121. 1300 DATA CA, 2B, CE, 74,  C, 2B, 15,  3, D0, 3B, D5, 77, 19, F3, A4, EB,   778
  122. 1310 DATA  6,  3, D0, 3B, D5, 77,  F, BE, 3B,  8, AB, 8B, C8, 49, 49, F3,   6F3
  123. 1320 DATA A4, 89, 3E,  6,  2, C3, B0, 70, E9, 3C, FC, 8B, 16,  6,  2, BE,   6DE
  124. 1330 DATA C4,  8, 8B, FE, 3B, FA, 73, 13, 8B, 4D,  2,  3, 35, 3A, D9, 75,   6AA
  125. 1340 DATA F1,  A, DB, 75,  4, 3A, FD, 75, E9, F8, C3, F9, C3, 55, 73, 61,   984
  126. 1350 DATA 67, 65, 3A, 20, 20, 41, 4E, 53, 49, 20, 5B, 46, 41, 53, 54, 20,   43A
  127. 1360 DATA 7C, 20, 53, 4C, 4F, 57, 5D, 5B, 4F, 4E, 20, 7C, 20, 4F, 46, 46,   4CD
  128. 1370 DATA 5D, 5B, 2F, 42, 20, 6E, 6E, 6E, 5D, 5B, 2F, 43, 5D, 5B, 2F, 55,   4F9
  129. 1380 DATA 5D,  D,  A, 46, 41, 53, 54, 20, 3D, 20, 64, 69, 72, 65, 63, 74,   49A
  130. 1390 DATA 20, 73, 63, 72, 65, 65, 6E, 20, 77, 72, 69, 74, 65, 73, 3B, 20,   5B9
  131. 1400 DATA 64, 65, 66, 61, 75, 6C, 74,  D,  A, 53, 4C, 4F, 57, 20, 3D, 20,   4BE
  132. 1410 DATA 73, 63, 72, 65, 65, 6E, 20, 77, 72, 69, 74, 65, 73, 20, 76, 69,   63D
  133. 1420 DATA 61, 20, 42, 49, 4F, 53,  D,  A, 4F, 4E, 2F, 4F, 46, 46, 20, 3D,   3C9
  134. 1430 DATA 20, 61, 63, 74, 69, 76, 65, 2F, 69, 6E, 61, 63, 74, 69, 76, 65,   61E
  135. 1440 DATA 3B, 20, 64, 65, 66, 61, 75, 6C, 74, 20, 69, 73, 20, 4F, 4E,  D,   506
  136. 1450 DATA  A, 6E, 6E, 6E, 20, 3D, 20, 62, 75, 66, 66, 65, 72, 20, 73, 69,   547
  137. 1460 DATA 7A, 65, 20, 69, 6E, 20, 62, 79, 74, 65, 73, 20, 28, 30, 2D, 36,   4F8
  138. 1470 DATA 30, 4B, 29, 20, 72, 65, 73, 65, 72, 76, 65, 64, 20, 66, 6F, 72,   58B
  139. 1480 DATA 20, 6B, 65, 79, 20, 72, 65, 61, 73, 73, 69, 67, 6E, 6D, 65, 6E,   625
  140. 1490 DATA 74, 3B, 20, 64, 65, 66, 61, 75, 6C, 74, 20, 32, 30, 30,  D,  A,   47D
  141. 1500 DATA 2F, 55, 20, 3D, 20, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C,  D,  A,   4D2
  142. 1510 DATA  A, 24, 53, 74, 61, 74, 75, 73, 3A, 20, 24,  D,  A, 42, 75, 66,   464
  143. 1520 DATA 66, 65, 72, 20, 73, 69, 7A, 65, 3A, 20, 24,  D,  A, 42, 79, 74,   4DC
  144. 1530 DATA 65, 73, 20, 66, 72, 65, 65, 3A, 20, 20, 24, 41, 4E, 53, 49, 2E,   491
  145. 1540 DATA 53, 59, 53, 20, 69, 73, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64,   5DB
  146. 1550 DATA 20, 73, 6F, 20, 41, 4E, 53, 49, 2E, 43, 4F, 4D, 20, 6E, 6F, 74,   4CB
  147. 1560 DATA 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64,  D,  A, 24, 43, 4F, 4E,   4FB
  148. 1570 DATA 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C, 20, 74, 6F, 20, 63, 68, 61,   609
  149. 1580 DATA 6E, 67, 65, 20, 62, 75, 66, 66, 65, 72, 20, 73, 69, 7A, 65,  D,   5BC
  150. 1590 DATA  A,  A, 24, 41, 4E, 53, 49, 20, 63, 61, 6E, 27, 74, 20, 62, 65,   437
  151. 1600 DATA 20, 75, 6E, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64,  D,  A, 55, 6E,   59D
  152. 1610 DATA 69, 6E, 73, 74, 61, 6C, 6C, 20, 72, 65, 73, 69, 64, 65, 6E, 74,   675
  153. 1620 DATA 20, 70, 72, 6F, 67, 72, 61, 6D, 73, 20, 69, 6E, 20, 72, 65, 76,   5EF
  154. 1630 DATA 65, 72, 73, 65, 20, 6F, 72, 64, 65, 72,  D,  A, 24, 4E, 6F, 74,   557
  155. 1640 DATA 20, 65, 6E, 6F, 75, 67, 68, 20, 6D, 65, 6D, 6F, 72, 79,  D,  A,   576
  156. 1650 DATA 24, 4D, 65, 6D, 6F, 72, 79, 20, 61, 6C, 6C, 6F, 63, 61, 74, 69,   606
  157. 1660 DATA 6F, 6E, 20, 65, 72, 72, 6F, 72,  D,  A,  7, 24, 49, 6E, 73, 74,   507
  158. 1670 DATA 61, 6C, 6C, 65, 64,  D,  A, 24, 55, 6E, 69, 6E, 73, 74, 61, 6C,   58B
  159. 1680 DATA 6C, 65, 64,  D,  A, 24, FC, BB,  0,  1, F6, 17, 33, D2, 8C, C8,   68E
  160. 1690 DATA 42, 8E, C2, 3B, D0, 74,  B, 8B, F3, 8B, FB, B9, 10,  0, F3, A6,   882
  161. 1700 DATA 75, EE, BA,  3,  1, E8, 61,  2, BA, BD,  7, E8, 5B,  2, BE, 81,   76E
  162. 1710 DATA  0, AC, 3C,  D, 74,  E, 3C, 61, 72, F7, 3C, 7A, 77, F3, 80, 64,   681
  163. 1720 DATA FF, 5F, EB, ED, BE, 81,  0, 33, C0, BB,  4,  0, BF, 56,  1,  3,   740
  164. 1730 DATA F8,  3, C3, 3D, 10,  0, 77, 2C, 56, B9,  2,  0, F3, A6, 5E, 75,   62B
  165. 1740 DATA EB, F6, F3, B1,  1, D0, E1, FE, C8, 75, FA, D0, E9, B4, FC, 80,   C55
  166. 1750 DATA F9,  2, 76,  4, D0, C4, D0, C4, 26, 20, 26, 55,  1, 26,  8,  E,   59B
  167. 1760 DATA 55,  1, 46, 46, AC, 3C,  D, 74, 4D, 3C, 2F, 75, BA, AC, 3C, 42,   55C
  168. 1770 DATA 75, 27, E8, 8A,  1, 74,  8, BA, 20,  9, E8, EC,  1, EB, A8, E8,   7BE
  169. 1780 DATA 58,  1, 81, FB,  0, F0, 76,  3, BB,  0, F0, 89, 1E,  4,  2, 81,   617
  170. 1790 DATA C3, C4,  8, 89, 1E,  8,  2, EB, 8E, 3C, 43, 75,  7, 26, C7,  6,   5A7
  171. 1800 DATA  6,  2, C4,  8, 3C, 55, 74,  3, E9, 7C, FF, E8, 51,  1, BA,  4,   638
  172. 1810 DATA  9, 74, 36, E9, 95,  0, E8, 4D,  1, E8, 43,  1, 74,  5,  A, C0,   5D6
  173. 1820 DATA E9, 84,  0, BD, C4,  8,  3, 2E,  4,  2, 83, C5,  F, 3B, 2E,  6,   4F3
  174. 1830 DATA  0, BA, 8D,  9, 77, 6C, B8, 29, 35, CD, 21, BE, 1D,  9, BF,  A,   5E4
  175. 1840 DATA  0, B9,  3,  0, F3, A6, BA, EB,  8, 74, 57, 89, 1E, 66,  1, 8C,   667
  176. 1850 DATA  6, 68,  1, BA,  A,  2, B8, 29, 25, CD, 21, B8, 16, 35, CD, 21,   51A
  177. 1860 DATA 89, 1E, 6A,  1, 8C,  6, 6C,  1, BA, 5E,  2, B8, 16, 25, CD, 21,   50C
  178. 1870 DATA B8, 21, 35, CD, 21, 89, 1E, 6E,  1, 8C,  6, 70,  1, BA, 28,  2,   4F9
  179. 1880 DATA B8, 21, 25, CD, 21, A1, 2C,  0, 8E, C0, B4, 49, CD, 21, BA, BC,   768
  180. 1890 DATA  9, E8, 35,  1, E8, C6, F8, 8B, D5, B1,  4, D3, EA, B8,  0, 31,   888
  181. 1900 DATA CD, 21, E8, 24,  1, B0,  1, B4, 4C, CD, 21, 26, 80, 26, 55,  1,   5BC
  182. 1910 DATA FD, 26, 80,  E, 55,  1,  1, 8C, C1, B8, 29, 35, CD, 21, 81, FB,   6D5
  183. 1920 DATA  A,  2, 75, 6B, 8C, C3, 3B, D9, 75, 65, B8, 16, 35, CD, 21, 81,   69B
  184. 1930 DATA FB, 5E,  2, 75, 5A, 8C, C3, 3B, D9, 75, 54, B8, 21, 35, CD, 21,   752
  185. 1940 DATA 81, FB, 28,  2, 75, 49, 8C, C3, 3B, D9, 75, 43, B4, 49, CD, 21,   76A
  186. 1950 DATA BA, A1,  9, 72, AD, 26, 8B, 16, 66,  1, 26, 8E, 1E, 68,  1, B8,   5A4
  187. 1960 DATA 29, 25, CD, 21, 26, 8B, 16, 6A,  1, 26, 8E, 1E, 6C,  1, B8, 16,   47B
  188. 1970 DATA 25, CD, 21, 26, 8B, 16, 6E,  1, 26, 8E, 1E, 70,  1, B8, 21, 25,   48A
  189. 1980 DATA CD, 21,  E, 1F, BA, C8,  9, E8, 9F,  0,  A, C0, E9, 78, FF, 8E,   7E5
  190. 1990 DATA C1, E8, 32,  0, BA, 43,  9, E9, 68, FF, 33, DB, AC, 3C,  D, 74,   7A8
  191. 2000 DATA 1C, 3C, 2F, 74, 18, 2C, 30, 72, F3, 3C,  9, 77, EF, 98, 93, B9,   663
  192. 2010 DATA  A,  0, F7, E1, 72,  4,  3, D8, 73, E2, BB, FF, FF, 4E, C3, 8C,   8DE
  193. 2020 DATA C0, 8C, CB, 3B, C3, C3, BA, C2,  8, E8, 5D,  0, 26, 8A, 1E, 55,   7C4
  194. 2030 DATA  1, B7,  1, 84, DF, 74, 1C, 8A, D7, B8, FF, FF, 40, D0, EA, 73,   930
  195. 2040 DATA FB, D1, E0, D1, E0, BE, 56,  1,  3, F0, B9,  4,  0, AC, E8, 32,   8E8
  196. 2050 DATA  0, E2, FA, D0, E7, 80, FF,  8, 76, D9, BA, CB,  8, E8, 29,  0,   907
  197. 2060 DATA 26, A1,  4,  2, 50, 33, ED, E8, 38, F9, BA, DB,  8, E8, 19,  0,   6F4
  198. 2070 DATA 58,  5, C4,  8, 26, 2B,  6,  6,  2, E8, 26, F9, BA, BE,  8, E8,   5F7
  199. 2080 DATA  7,  0, C3, 8A, D0, B4,  2, EB,  2, B4,  9, CD, 21, C3,  0,  0,   635
  200. 2090 DATA 294000
  201.